home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / cltthngs.lha / GlobalWar.trans < prev    next >
Text File  |  1996-01-21  |  1KB  |  39 lines
  1. /* Global War Startup Script - The Next Generation 
  2.    Features:
  3.    1) It works!!
  4.    2) It prevents people doing CTRL-C/D/E at any time
  5.    3) It will load the latest version of Global War
  6.  
  7. Thanks go to Gordon Hart, Wicked City BBS, +44 (0)1827 875613,
  8. who got this to work at all, and made it unbreakable */
  9.  
  10. options failat 9999          /* Keeps users out of your shell! */
  11. options results
  12. call pragma('stack',10000)
  13. UserInfo 'a' ; Name = result
  14. SystemInfo 'm' ; Time = result
  15. SystemInfo '8' ; Line = result
  16. Userinfo 'o' ; access=result
  17. userinfo 'v' ; slength=result
  18. id=time(s)
  19. Transmit
  20.  
  21. path='t:gwar'line   /* change this to reflect your directory path */
  22.  
  23. quoteusername='"'||name||'"'
  24.  
  25. open('temp',path,'W')
  26. writeln('temp','failat 9999')
  27. writeln('temp','stack 10000')
  28. writeln('temp','doors:Globalwar/globalwar NAME 'quoteusername' ACCESS 'access' TIMELEFT 'time'  PAGELENGTH 'slength)
  29.  
  30. writeln('temp','endcli')
  31. close('temp')
  32.  
  33. address command 'NewShell from 'path' FIFO:gwar'id'/rwkes'
  34. address command 'BBS:Bin/TrShell -n'line' -d -e -c -fgwar'id 
  35.  
  36. address command 'Delete 'path' quiet'
  37. delay 100
  38. exit
  39.